﻿Public Class clsPartner
    Inherits clsBLBase

    ''' <summary>
    ''' Constructor truyền connection string vào BL
    ''' </summary>
    ''' <param name="connectionString">connection string muốn truyền xuống BL</param>
    ''' <remarks>Nguyễn Huy Thường added on 08/07/2012</remarks>
    Public Sub New(ByVal connectionString As String)
        MyBase.New(connectionString)
    End Sub

#Region "Overrides"

    ''' <summary>
    ''' Đặt tên cho bảng hiện đang làm việc là Partner
    ''' </summary>
    ''' <remarks>Nguyễn Huy Thường added on 26/06/2012</remarks>
    Protected Overrides Sub SetTableName()
        MyBase.TableName = dsFMS.Partner.TableName
    End Sub

    ''' <summary>
    ''' Sub tạo mới một bản ghi trống trên dataset
    ''' </summary>
    ''' <returns>Trả lại một bản ghi trống</returns>
    ''' <remarks>Nguyễn Huy Thường added on 26/06/2012</remarks>
    Public Overrides Function InitNewRow() As System.Data.DataRow
        Dim drNewRow As FMSDataSet.PartnerRow = dsFMS.Partner.NewPartnerRow
        With drNewRow
            .PartnerID = Guid.NewGuid
            .PartnerName = String.Empty
            .SetPartnerPhoneNull()
            .SetPartnerAddressNull()
            .SetPartnerEmailNull()
            .SetPartnerWebsiteNull()
            .PartnerAddedDate = Today
            .SetPartnerDeletedDateNull()
            .PartnerStatus = True
            .SetPartnerDescriptionNull()
        End With
        dsFMS.Partner.Rows.Add(drNewRow)
        Return drNewRow
    End Function
#End Region
End Class
